home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / cocktail / cg.lha / cg / hag-c / hag next >
Text File  |  1992-11-24  |  199b  |  15 lines
  1. /* hag */
  2.  
  3. RULE
  4.  
  5. R    = F [n] -> [r OUT] { F:n :- n; r :- F:r; } .
  6.  
  7. F    = -> [n] [r]  { r := 1; } <
  8.  
  9.    P1    = -> F { F   := n <= 1 ? mP2 () \: mP1 ();
  10.          F:n := n - 1;
  11.          r   := F:r * n; } .
  12.  
  13.    P2    = .
  14. >.
  15.